home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / blanker / readme.blk < prev   
Text File  |  1990-02-04  |  1KB  |  51 lines
  1. (*====================================================================
  2.   =                           Peter M. Perchansky                    =
  3.   =                        412-1 Springside, Drive East              =
  4.   =                           Shillington, PA  19607                 =
  5.   ====================================================================*)
  6.  
  7.  
  8. BLANK.EXE is an EGA/VGA safe screen blanking program written using
  9. TopSpeed Modula-2 (version 1.17).
  10.  
  11. USAGE:
  12.      Blank Screen:       BLANK
  13.      Normal:             <press any key>
  14.  
  15. Relevant code from PMPDos.MOD:
  16. ----------------------------------------------------------------------
  17. VAR
  18.     r    : SYSTEM.Registers;
  19.  
  20. PROCEDURE ScreenOff ();
  21. (* turns off the screen *)
  22.  
  23. BEGIN
  24.     WITH r DO
  25.          AL := SYSTEM.In (03DAH);
  26.          DX := 03C0H;
  27.          SYSTEM.Out (DX, AL);
  28.     END;
  29. END ScreenOff;
  30.  
  31. PROCEDURE ScreenOn ();
  32. (* turns on the screen *)
  33.  
  34. BEGIN
  35.     WITH r DO
  36.          AL := SYSTEM.In (03DAH);
  37.          DX := 03C0H;
  38.          AL := 20H;
  39.          SYSTEM.Out (DX, AL);
  40.     END;
  41. END ScreenOn;
  42.  
  43. PROCEDURE ReadKey (): CHAR;
  44. (* waits for and returns keyboard character. *)
  45.  
  46. BEGIN
  47.     r.AH := 00H;
  48.     Lib.Intr (r, 16H);      (* keyboard *)
  49.     RETURN (CHR (r.AL));
  50. END ReadKey;
  51.